Into That Dark Night/Into That Dark Night.iso/pc/YadVashem/Database/LEXMM.dxr/00007_lex field behavoir.ls

Text File | 2003-03-14 | 604 b | 27 lines

property pCurLine
global gLexList, gCameFrom

on mouseWithin me
  set whatLine to the mouseLine
  if (whatLine <> pCurLine) and (whatLine > 0) then
    set whatField to the member of sprite the spriteNum of me
    hilite line whatLine of field whatField
    set pCurLine to whatLine
  end if
end

on mouseLeave me
  set the hilite of field the member of sprite the spriteNum of me to 0
  set pCurLine to -1
end

on mouseUp me
  set whatLine to the mouseLine
  if whatLine > 0 then
    set theItem to getAt(gLexList, whatLine)
    put theItem
    set gCameFrom to #db
    showDBItem(theItem)
  end if
end